﻿'Params
'country (Required) : A country name, as defined by the ISO 3166-1 country names standard
'location (Optional) : A metro name, to fetch the charts for (must be within the country specified)
'limit (Optional) : The number of results to fetch per page. Defaults to 50.
'page (Optional) : The page number to fetch. Defaults to first page.
'api_key (Required) : A Last.fm API key.
'Auth
'This service does not require authentication. 

Public Class GeoGetTopTracks
	Inherits BaseRequest
    Dim country As String = ""
    Dim location As String = ""
    Dim limit As String = ""
    Dim page As String = ""

    Public xmlresponse As XDocument = Nothing

    Public Sub New(country As String, location As String, limit As String, page As String)
        Me.country = country
        Me.location = location
        Me.limit = limit
        Me.page = page
    End Sub

    Public Sub sendRequest()
        InitializeMembers("geo.getTopTracks")

        AddMember("country", country, False)
        AddMember("location", location, False)
        AddMember("limit", limit, False)
        AddMember("page", page, False)
        AddMember("api_key", My.Settings.api_key, False)

        xmlresponse = sendPOSTResponse()
    End Sub

    '	Public Function getResponse() As AlbumGetInfoResponse
    '	Dim response As New AlbumGetInfoResponse
    '		response.album = New Album(xmlresponse.<lfm>.<album>.First)
    '		Return response
    '	End Function
End Class
